1280 IF COLOUR = 3 THEN COLOUR = 4: REM SKIP WHITE
1300 GOSUB 24000
1310 GOSUB 21000: REM FILL
1315 FOR D = 1 TO 6000: NEXT
1320 NEXT
19999 END
20000 REM *** ST$(I,J) = STATE NAMES, WHERE I IS STATES NUMBERED ALPHABETICALLY AND J=1 FOR ABBREVIATION AND J=2 FOR FULL NAME
20001 FOR I = 1 TO 50
20002 FOR J = 1 TO 2
20003 READ ST$(I,J)
20004 NEXT
20006 NEXT
20008 RETURN
20010 DATA "ALA.","ALABAMA","ALSK.","ALASKA","ARIZ.","ARIZONA","ARK.","ARKANSAS","CAL.","CALIFORNIA","COLO.","COLORADO","CONN.","CONNECTICUT","DEL.","DELAWARE"
20020 DATA FLA.,FLORIDA,GA.,GEORGIA,HAW.,HAWAII,IDAHO,IDAHO,ILL.,ILLINOIS,IND.,INDIANA,IOWA,IOWA,KANS.,KANSAS
20025 DATA KY.,KENTUCKY
20030 DATA LA.,LOUISIANA,ME.,MAINE,MD.,MARYLAND,MASS.,MASSACHUSETTS,MICH.,MICHIGAN,MINN.,MINNESOTA,MISS.,MISSISSIPPI,MO.,MISSOURI,MONT.,MONTANA,NEB.,NEBRASKA
20040 DATA NEV.,NEVADA
20050 DATA "N.H.","NEW HAMPSHIRE","N.J.","NEW JERSEY","N.M.","NEW MEXICO","N.Y,","NEW YORK","N.C.","NORTH CAROLINA","N.D.","NORTH DAKOTA"
20060 DATA OHIO,OHIO,OKLA.,OKLAHOMA,ORE.,OREGON,PA.,PENNSYLVANIA
20070 DATA "R.I.","RHODE ISLAND","S.C.","SOUTH CAROLINA","S.D.","SOUTH DAKOTA"
20080 DATA TENN.,TENNESSEE,TEX.,TEXAS,UTAH,UTAH,VT.,VERMONT,VA.,VIRGINIA,WASH.,WASHINGTON
20085 DATA "W.V.","WEST VIRGINIA"
20090 DATA WISC.,WISCONSIN,WYO.,WYOMING
21000 REM *** SEEDS FOR STATES
21010 IF ST(1) = -1 THEN X = 178:Y = 93: GOSUB 22000:ST(1) = 0: REM ALABAMA
21012 IF ST(2) = -1 THEN X = 54:Y = 143: GOSUB 22000:X = 59:Y = 139: GOSUB 22000:X = 64:Y = 131: GOSUB 22000:X = 74:Y = 153: GOSUB 22000:ST(2) = 0: REM ALASKA
21014 IF ST(3) = -1 THEN X = 58:Y = 82: GOSUB 22000:X = 68:Y = 105: GOSUB 22000:ST(3) = 0: REM ARIZONA
21016 IF ST(4) = -1 THEN X = 158:Y = 88: GOSUB 22000:ST(4) = 0: REM ARKANSAS
21018 IF ST(5) = -1 THEN X = 22:Y = 57: GOSUB 22000:X = 44:Y = 89: GOSUB 22000:ST(5) = 0: REM CALIFORNIA
21020 IF ST(6) = -1 THEN X = 87:Y = 78: GOSUB 22000:ST(6) = 0: REM COLORADO
21022 IF ST(7) = -1 THEN X = 225:Y = 42: GOSUB 22000:ST(7) = 0: REM CONNECTICUT
21024 IF ST(8) = -1 THEN ST(8) = 0: REM DELAWARE
21026 IF ST(9) = -1 THEN X = 214:Y = 126: GOSUB 22000:X = 202:Y = 108: GOSUB 22000:ST(9) = 0: REM FLORIDA
21028 IF ST(10) = -1 THEN X = 191:Y = 93: GOSUB 22000:ST(10) = 0: REM GEORGIA
21030 IF ST(11) = -1 THEN X = 190:Y = 156: GOSUB 22000:ST(11) = 0: REM HAWAII
21032 IF ST(12) = -1 THEN X = 56:Y = 31: GOSUB 22000:X = 69:Y = 57: GOSUB 22000:ST(12) = 0: REM IDAHO
21034 IF ST(13) = -1 THEN X = 162:Y = 61: GOSUB 22000:ST(13) = 0: REM ILLINOIS
21036 IF ST(14) = -1 THEN X = 172:Y = 57: GOSUB 22000:ST(14) = 0: REM INDIANA
21038 IF ST(15) = -1 THEN X = 142:Y = 59: GOSUB 22000:ST(15) = 0: REM IOWA
21040 IF ST(16) = -1 THEN X = 117:Y = 78: GOSUB 22000:ST(16) = 0: REM KANSAS
21042 IF ST(17) = -1 THEN X = 183:Y = 71: GOSUB 22000:X = 168:Y = 80: GOSUB 22000:ST(17) = 0: REM KENTUCKY
21044 IF ST(18) = -1 THEN X = 164:Y = 114: GOSUB 22000:X = 153:Y = 106: GOSUB 22000:ST(18) = 0: REM LOUISIANA
21046 IF ST(19) = -1 THEN X = 229:Y = 23: GOSUB 22000:ST(19) = 0: REM MAINE
21048 IF ST(20) = -1 THEN X = 218:Y = 61: GOSUB 22000:ST(20) = 0: REM MARYLAND
21050 IF ST(21) = -1 THEN X = 228:Y = 39: GOSUB 22000:ST(21) = 0: REM MASSACHUSETTS
21051 IF ST(22) = -1 THEN X = 176:Y = 41: GOSUB 22000:ST(22) = 0: REM MICHIGAN
21052 IF ST(23) = -1 THEN X = 138:Y = 47: GOSUB 22000:ST(23) = 0: REM MINNESOTA
21054 IF ST(24) = -1 THEN X = 170:Y = 95: GOSUB 22000:ST(24) = 0: REM MISSISSIPPI
21055 IF ST(25) = -1 THEN X = 147:Y = 78: GOSUB 22000:ST(25) = 0: REM MISSOURI
21057 IF ST(26) = -1 THEN X = 74:Y = 38: GOSUB 22000:X = 62:Y = 24: GOSUB 22000:ST(26) = 0: REM MONTANA
21058 IF ST(27) = -1 THEN X = 117:Y = 57: GOSUB 22000:ST(27) = 0: REM NEBRASKA
21060 IF ST(28) = -1 THEN X = 38:Y = 63: GOSUB 22000:X = 51:Y = 78: GOSUB 22000:ST(28) = 0: REM NEVADA
21061 IF ST(29) = -1 THEN X = 225:Y = 32: GOSUB 22000:ST(29) = 0: REM NEW HAMPSHIRE
21062 IF ST(30) = -1 THEN X = 220:Y = 51: GOSUB 22000:X = 220:Y = 55: GOSUB 22000:ST(30) = 0: REM NEW JERSEY
21064 IF ST(31) = -1 THEN X = 91:Y = 87: GOSUB 22000:ST(31) = 0: REM NEW MEXICO
21065 IF ST(32) = -1 THEN X = 214:Y = 35: GOSUB 22000:ST(32) = 0: REM NEW YORK
21066 IF ST(33) = -1 THEN X = 216:Y = 79: GOSUB 22000:ST(33) = 0: REM NORTH CAROLINA
21068 IF ST(34) = -1 THEN X = 110:Y = 35: GOSUB 22000:ST(34) = 0: REM NORTH DAKOTA
21069 IF ST(35) = -1 THEN X = 195:Y = 52: GOSUB 22000:ST(35) = 0: REM OHIO
21070 IF ST(36) = -1 THEN X = 134:Y = 85: GOSUB 22000:ST(36) = 0: REM OKLAHOMA
21072 IF ST(37) = -1 THEN X = 42:Y = 50: GOSUB 22000:X = 29:Y = 35: GOSUB 22000:ST(37) = 0: REM OREGON
21073 IF ST(38) = -1 THEN X = 204:Y = 52: GOSUB 22000:ST(38) = 0: REM PENNSYLVANIA
21075 IF ST(39) = -1 THEN ST(39) = 0: REM RHODE ISLAND
21077 IF ST(40) = -1 THEN X = 206:Y = 87: GOSUB 22000:ST(40) = 0: REM SOUTH CAROLINA
21078 IF ST(41) = -1 THEN X = 117:Y = 48: GOSUB 22000:ST(41) = 0: REM SOUTH DAKOTA
21080 IF ST(42) = -1 THEN X = 180:Y = 88: GOSUB 22000:X = 188:Y = 87: GOSUB 22000:ST(42) = 0: REM TENNESSEE
21081 IF ST(43) = -1 THEN X = 102:Y = 114: GOSUB 22000:X = 111:Y = 102: GOSUB 22000:X = 129:Y = 124: GOSUB 22000:ST(43) = 0: REM TEXAS
21082 IF ST(44) = -1 THEN X = 70:Y = 69: GOSUB 22000:ST(44) = 0: REM UTAH
21084 IF ST(45) = -1 THEN X = 220:Y = 30: GOSUB 22000:ST(45) = 0: REM VERMONT
21086 IF ST(46) = -1 THEN X = 200:Y = 73: GOSUB 22000:X = 211:Y = 64: GOSUB 22000:ST(46) = 0: REM VIRGINIA
21088 IF ST(47) = -1 THEN X = 41:Y = 25: GOSUB 22000:ST(47) = 0: REM WASHINGTON
21090 IF ST(48) = -1 THEN X = 204:Y = 64: GOSUB 22000:X = 198:Y = 67: GOSUB 22000:ST(48) = 0: REM WEST VIRGINIA
21092 IF ST(49) = -1 THEN X = 159:Y = 38: GOSUB 22000:ST(49) = 0: REM WISCONSIN
21094 IF ST(50) = -1 THEN X = 89:Y = 54: GOSUB 22000:ST(50) = 0: REM WYOMING
21098 RETURN
22000 REM *** FILL ROUTINE
22001 REM *** FROM "HI-RES SECRETS BY DON FUDGE, AVANT-GARDE SOFTWARE"